home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / indus / auto_inv / inv_0500.prg < prev    next >
Text File  |  1991-08-07  |  2KB  |  78 lines
  1. *--------------------------------------------------------------------------
  2. * Program KEV_0500 - List Invoices to be printed Kevins Subaru Invoicing
  3. *                       (c) 1989 Systematics Consulting, Inc.
  4. *--------------------------------------------------------------------------
  5.  
  6. SET TALK OFF
  7. SET ECHO OFF
  8. SET STATUS OFF
  9. CLOSE ALL
  10.  
  11. ANSWER = " "
  12.  
  13. SELECT 1
  14. USE KEV_MSTR
  15. SELECT 2
  16. USE KEV_LBOR
  17. SELECT 3
  18. USE KEV_PART
  19.  
  20.  
  21.   CLEAR
  22.  
  23. SELECT 1
  24.  
  25.    LOCATE FOR UPPER(PRINTED)  = "N"
  26.  
  27.    @ 24, 10 SAY  "Systematics Consulting, Inc. (303)674-8445 - Program KEV_0500"
  28.    @ 1,  1 SAY  DATE()
  29.    @ 1, 71 SAY  TIME()
  30.    @ 2,  5 TO  5,75 DOUBLE
  31.    @ 3, 15 SAY  "             KEVIN'S SUBARU               "
  32.    @ 4, 15 SAY  "      Display Invoices to be printed      "
  33.  
  34.    @ 6,  7  SAY "INV #   DATE     NAME"
  35.  
  36.  
  37. X = 8
  38.  
  39. DO WHILE UPPER(PRINTED) = "N" .AND. .NOT. EOF()
  40.  
  41. @  X,  7  SAY  INV_NO PICTURE "#####"
  42. @  X, 13  SAY  KEV_MSTR->DATE
  43. @  X, 24  SAY  TRIM(FIRSTNAME) + " " + TRIM(LASTNAME)
  44.  
  45. X = X+1
  46.  
  47. IF X > 20
  48.   ANSWER = " "
  49.   @ 22, 14  SAY "  PRESS ANY KEY TO CONNTINUE: " GET ANSWER
  50.   @ 21,  9  TO 23, 71    DOUBLE
  51.   READ
  52.     @ 24, 10 SAY  "Systematics Consulting, Inc. (303)674-8445 - Program KEV_0500"
  53.     @ 1,  1 SAY  DATE()
  54.     @ 1, 71 SAY  TIME()
  55.     @ 2,  5 TO  5,75 DOUBLE
  56.     @ 3, 15 SAY  "             KEVIN'S SUBARU               "
  57.     @ 4, 15 SAY  "      Display Invoices to be printed      "
  58.     @ 6,  7  SAY "INV #   DATE     NAME"
  59.     X = 8
  60. ENDIF
  61.  
  62. CONTINUE
  63.  
  64. ENDDO
  65.  
  66.  
  67.   ANSWER = " "
  68.   @ 22, 14  SAY "  PRESS ANY KEY TO RETURN TO MENU: " GET ANSWER
  69.   @ 21,  9  TO 23, 71    DOUBL
  70.   READ
  71.  
  72.   CLOSE ALL
  73. RETURN TO MASTER
  74.  
  75.  
  76.  
  77. *---------- END OF PROGRAM ---------------- 
  78.